home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbfaqr01.zip / CLRBUFF.BAS < prev    next >
BASIC Source File  |  1992-08-09  |  193b  |  9 lines

  1. SUB pcrClearModemBuffer (H%)
  2.  
  3.    'Purpose : To clear the modem buffer
  4.    'Input   : The file handle which the com port was opened
  5.    'Return  : none
  6.  
  7.    A$ = INPUT(LOF(H%), H%)
  8. END SUB
  9.